home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / Hot Demos! / DroidWorks demo / dwCD.gob / mission_cog_tx_endleveltest.cog < prev    next >
Encoding:
Text File  |  1998-09-17  |  1.9 KB  |  100 lines
  1. # Droids Cog Script
  2. #
  3. # To end the level by entering a sector
  4. # 
  5. # 
  6. #
  7. #
  8. # [MT]
  9. #
  10. #
  11. # (C) 1997 LucasLearningLimited. All Rights Reserved
  12.  
  13.  
  14.  
  15. symbols
  16. message        entered
  17. message        startup
  18. message        pulse
  19. message        timer
  20. message        activate
  21. message        blocked
  22.  
  23. surface        switch              linkid=4
  24.  
  25. sector         endsector 
  26.  
  27. template       ghosttemplate
  28.  
  29. thing          door1
  30. thing          door2
  31.  
  32. vector         launchvector
  33. sound          endlevelsound=00tAccomplish2.wav
  34. sound          switchsound=swt00ltswch1.wav   
  35.  
  36. int        elephantstone        local
  37. int        shebangsthedrums    local
  38. vector    camerapos            local
  39. sector    camerasector        local
  40. thing    alternatecam        local
  41. thing    player                local
  42. end
  43.  
  44. ## Code Section
  45. code 
  46. startup:
  47.      player=getlocalplayerthing();
  48.      setwallcel(switch, 1);
  49.      setthinglight(door2, 0.5, 0);
  50.      setthinglight(door1, 0.5, 0);
  51.      shebangsthedrums=0;
  52.      launchvector=vectorscale(launchvector, 2.0);
  53.      return;
  54.  
  55. entered:
  56.     if (shebangsthedrums==0)
  57.     {
  58.         shebangsthedrums=1;
  59.  
  60.         dwfreezeplayer();
  61.         camerapos=dwGetCameraPosition();
  62.         camerasector=dwGetCameraSector();
  63.         alternatecam=createthingatpos(ghosttemplate, camerasector, camerapos, '0.0 0.0 0.0');
  64.         SetCameraFocii(2,player,alternatecam);
  65.         SetCurrentCamera(2);
  66.  
  67.         elephantstone=playsoundlocal(endlevelsound, 1.0, 0.0, 0);
  68.         stopsound(elephantstone, 4.0);
  69.  
  70.         setpulse(0.01);
  71.         settimer(3);
  72.     }
  73.     return;
  74.  
  75. pulse:   
  76.      setthingvel(player,launchvector);         
  77.      return;
  78.      
  79. timer:
  80.      dwendlevel();
  81.      return;
  82.  
  83. blocked:
  84.      setwallcel(switch, 2);
  85.      movetoframe(door1, 1, 3);
  86.      movetoframe(door2, 1, 3);
  87.      return;
  88.      
  89. activate:
  90.      if (getsenderid()==4) {
  91.           playsoundpos(switchsound, getsurfacecenter(switch), 1.0, -1, -1, 0);
  92.           setwallcel(switch, 2);
  93.           movetoframe(door1, 1, 3);
  94.           movetoframe(door2, 1, 3);
  95.      }
  96.      return;
  97.  
  98. end
  99.  
  100.